home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / clipper / nannws33.arc / EPSILON.PRG < prev    next >
Text File  |  1988-11-01  |  338b  |  15 lines
  1. * Program: Epsilon.prg
  2. * Author:  Grant Nesheim
  3. * Version: Clipper Summer '87
  4. * Note(s): Calculate machine epsilon for Clipper and the host
  5. *          machine.
  6. *
  7. * Copyright (c) 1988 Nantucket Corp.
  8.  
  9. i = 1.00
  10. DO WHILE (1.00 + 10.00^-(i+1.00)) > 1.00
  11.    i = i + 1.00
  12. ENDDO
  13. ? "Epsilon is 1.00 x 10.00^-"+LTRIM(STR(i))
  14. RETURN
  15.